object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 631
  ClientWidth = 767
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object JvTFMonths1: TJvTFMonths
    Left = 8
    Top = 8
    Width = 300
    Height = 300
    ScheduleManager = JvTFScheduleManager1
    Cells = <
      item
        Color = clBlack
        CellDate = 42001.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42002.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42003.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42004.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42005.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42006.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42007.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42008.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42009.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42010.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42011.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42012.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42013.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42014.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42015.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42016.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42017.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42018.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42019.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42020.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42021.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42022.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42023.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42024.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42025.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42026.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42027.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42028.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42029.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42030.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42031.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42032.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42033.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42034.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42035.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42036.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42037.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42038.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42039.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42040.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42041.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42042.000000000000000000
        CellPics = <>
        CanSelect = True
      end>
    GapSize = 0
    TitleAttr.TxtAttr.Font.Charset = DEFAULT_CHARSET
    TitleAttr.TxtAttr.Font.Color = clWindowText
    TitleAttr.TxtAttr.Font.Height = -21
    TitleAttr.TxtAttr.Font.Name = 'Tahoma'
    TitleAttr.TxtAttr.Font.Style = [fsBold]
    TitleAttr.Title = 'janeiro 2015'
    CellAttr.Font.Charset = DEFAULT_CHARSET
    CellAttr.Font.Color = clWindowText
    CellAttr.Font.Height = -11
    CellAttr.Font.Name = 'Tahoma'
    CellAttr.Font.Style = []
    CellAttr.TitleAttr.Color = clWhite
    CellAttr.TitleAttr.DayTxtAttr.Font.Charset = DEFAULT_CHARSET
    CellAttr.TitleAttr.DayTxtAttr.Font.Color = clWindowText
    CellAttr.TitleAttr.DayTxtAttr.Font.Height = -11
    CellAttr.TitleAttr.DayTxtAttr.Font.Name = 'Tahoma'
    CellAttr.TitleAttr.DayTxtAttr.Font.Style = []
    CellAttr.DrawBottomLine = False
    SelCellAttr.Font.Charset = DEFAULT_CHARSET
    SelCellAttr.Font.Color = clWindowText
    SelCellAttr.Font.Height = -11
    SelCellAttr.Font.Name = 'Tahoma'
    SelCellAttr.Font.Style = []
    SelCellAttr.TitleAttr.Color = clNavy
    SelCellAttr.TitleAttr.DayTxtAttr.Font.Charset = DEFAULT_CHARSET
    SelCellAttr.TitleAttr.DayTxtAttr.Font.Color = clWhite
    SelCellAttr.TitleAttr.DayTxtAttr.Font.Height = -11
    SelCellAttr.TitleAttr.DayTxtAttr.Font.Name = 'Tahoma'
    SelCellAttr.TitleAttr.DayTxtAttr.Font.Style = []
    SelCellAttr.DrawBottomLine = False
    Viewer = JvTFGlanceTextViewer1
    OnDropAppt = JvTFMonths1DropAppt
    DateFormat = 'ddddd'
    TimeFormat = 't'
    ParentColor = True
    TabOrder = 0
    OnDblClick = JvTFMonths1DblClick
    Month = 1
    Year = 2015
    DisplayDate = 42016.000000000000000000
    DWNames.DWN_Sunday = 'S'
    DWNames.DWN_Monday = 'M'
    DWNames.DWN_Tuesday = 'T'
    DWNames.DWN_Wednesday = 'W'
    DWNames.DWN_Thursday = 'T'
    DWNames.DWN_Friday = 'F'
    DWNames.DWN_Saturday = 'S'
    DWTitleAttr.FrameAttr.Style = fs3DRaised
    DWTitleAttr.Height = 20
    DWTitleAttr.TxtAttr.Font.Charset = DEFAULT_CHARSET
    DWTitleAttr.TxtAttr.Font.Color = clWindowText
    DWTitleAttr.TxtAttr.Font.Height = -11
    DWTitleAttr.TxtAttr.Font.Name = 'Tahoma'
    DWTitleAttr.TxtAttr.Font.Style = []
    ExtraDayCellAttr.Font.Charset = DEFAULT_CHARSET
    ExtraDayCellAttr.Font.Color = clWindowText
    ExtraDayCellAttr.Font.Height = -11
    ExtraDayCellAttr.Font.Name = 'Tahoma'
    ExtraDayCellAttr.Font.Style = []
    ExtraDayCellAttr.TitleAttr.Color = clWhite
    ExtraDayCellAttr.TitleAttr.DayTxtAttr.Font.Charset = DEFAULT_CHARSET
    ExtraDayCellAttr.TitleAttr.DayTxtAttr.Font.Color = clWindowText
    ExtraDayCellAttr.TitleAttr.DayTxtAttr.Font.Height = -11
    ExtraDayCellAttr.TitleAttr.DayTxtAttr.Font.Name = 'Tahoma'
    ExtraDayCellAttr.TitleAttr.DayTxtAttr.Font.Style = []
    ExtraDayCellAttr.DrawBottomLine = False
    OffDayCellAttr.Font.Charset = DEFAULT_CHARSET
    OffDayCellAttr.Font.Color = clWindowText
    OffDayCellAttr.Font.Height = -11
    OffDayCellAttr.Font.Name = 'Tahoma'
    OffDayCellAttr.Font.Style = []
    OffDayCellAttr.TitleAttr.Color = clWhite
    OffDayCellAttr.TitleAttr.DayTxtAttr.Font.Charset = DEFAULT_CHARSET
    OffDayCellAttr.TitleAttr.DayTxtAttr.Font.Color = clWindowText
    OffDayCellAttr.TitleAttr.DayTxtAttr.Font.Height = -11
    OffDayCellAttr.TitleAttr.DayTxtAttr.Font.Name = 'Tahoma'
    OffDayCellAttr.TitleAttr.DayTxtAttr.Font.Style = []
    OffDayCellAttr.DrawBottomLine = False
    FirstDayOfMonthFormat = 'mmm d'
    DayFormat = 'd'
  end
  object Button1: TButton
    Left = 8
    Top = 328
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object JvTFDays1: TJvTFDays
    Left = 320
    Top = 8
    Width = 361
    Height = 300
    ScheduleManager = JvTFScheduleManager1
    ColHdrHeight = 30
    Cols = <
      item
        SchedDate = 42019.289221793980000000
        SchedName = 'GLAUCOS'
        Title = 'GLAUCOS - 15/01/2015'
        Width = 290
      end>
    RowHeight = 12
    Template.CompDate = 42017.000000000000000000
    Template.CompNames.Strings = (
      'GLAUCOS')
    Template.LinearDayCount = 1
    Template.LinearEndDate = 42017.000000000000000000
    Template.LinearName = 'GLAUCOS'
    Template.LinearStartDate = 42017.000000000000000000
    Grouping = grNone
    TimeBlocks = <>
    TimeBlockProps.BlockHdrAttr.Font.Charset = DEFAULT_CHARSET
    TimeBlockProps.BlockHdrAttr.Font.Color = clWindowText
    TimeBlockProps.BlockHdrAttr.Font.Height = -11
    TimeBlockProps.BlockHdrAttr.Font.Name = 'Tahoma'
    TimeBlockProps.BlockHdrAttr.Font.Style = []
    TimeBlockProps.BlockHdrAttr.ParentFont = False
    TimeBlockProps.BlockHdrAttr.FrameColor = clBlack
    TimeBlockProps.SelBlockHdrAttr.Font.Charset = DEFAULT_CHARSET
    TimeBlockProps.SelBlockHdrAttr.Font.Color = clBlack
    TimeBlockProps.SelBlockHdrAttr.Font.Height = -11
    TimeBlockProps.SelBlockHdrAttr.Font.Name = 'Tahoma'
    TimeBlockProps.SelBlockHdrAttr.Font.Style = []
    TimeBlockProps.SelBlockHdrAttr.ParentFont = False
    TimeBlockProps.SelBlockHdrAttr.FrameColor = clBlack
    ApptAttr.Color = clWhite
    ApptAttr.Font.Charset = DEFAULT_CHARSET
    ApptAttr.Font.Color = clWindowText
    ApptAttr.Font.Height = -11
    ApptAttr.Font.Name = 'Tahoma'
    ApptAttr.Font.Style = []
    ApptAttr.ParentFont = False
    SelApptAttr.Color = clWhite
    SelApptAttr.Font.Charset = DEFAULT_CHARSET
    SelApptAttr.Font.Color = clWindowText
    SelApptAttr.Font.Height = -11
    SelApptAttr.Font.Name = 'Tahoma'
    SelApptAttr.Font.Style = []
    HdrAttr.Font.Charset = DEFAULT_CHARSET
    HdrAttr.Font.Color = clWindowText
    HdrAttr.Font.Height = -11
    HdrAttr.Font.Name = 'Tahoma'
    HdrAttr.Font.Style = []
    HdrAttr.FrameColor = clBlack
    SelHdrAttr.Font.Charset = DEFAULT_CHARSET
    SelHdrAttr.Font.Color = clBlack
    SelHdrAttr.Font.Height = -11
    SelHdrAttr.Font.Name = 'Tahoma'
    SelHdrAttr.Font.Style = []
    SelHdrAttr.ParentFont = False
    SelHdrAttr.FrameColor = clBlack
    FancyRowHdrAttr.Hr2400 = False
    FancyRowHdrAttr.MinorFont.Charset = DEFAULT_CHARSET
    FancyRowHdrAttr.MinorFont.Color = clWindowText
    FancyRowHdrAttr.MinorFont.Height = -11
    FancyRowHdrAttr.MinorFont.Name = 'Tahoma'
    FancyRowHdrAttr.MinorFont.Style = []
    FancyRowHdrAttr.MajorFont.Charset = DEFAULT_CHARSET
    FancyRowHdrAttr.MajorFont.Color = clWindowText
    FancyRowHdrAttr.MajorFont.Height = -21
    FancyRowHdrAttr.MajorFont.Name = 'Tahoma'
    FancyRowHdrAttr.MajorFont.Style = []
    SelFancyRowHdrAttr.Hr2400 = False
    SelFancyRowHdrAttr.MinorFont.Charset = DEFAULT_CHARSET
    SelFancyRowHdrAttr.MinorFont.Color = clBlack
    SelFancyRowHdrAttr.MinorFont.Height = -11
    SelFancyRowHdrAttr.MinorFont.Name = 'Tahoma'
    SelFancyRowHdrAttr.MinorFont.Style = []
    SelFancyRowHdrAttr.MajorFont.Charset = DEFAULT_CHARSET
    SelFancyRowHdrAttr.MajorFont.Color = clBlack
    SelFancyRowHdrAttr.MajorFont.Height = -21
    SelFancyRowHdrAttr.MajorFont.Name = 'Tahoma'
    SelFancyRowHdrAttr.MajorFont.Style = []
    SelFancyRowHdrAttr.TickColor = clBlack
    PrimeTime.StartTime = 0.333333333333333300
    PrimeTime.EndTime = 0.708333333333333400
    PrimeTime.Color = clYellow
    GroupHdrAttr.Font.Charset = DEFAULT_CHARSET
    GroupHdrAttr.Font.Color = clWindowText
    GroupHdrAttr.Font.Height = -11
    GroupHdrAttr.Font.Name = 'Tahoma'
    GroupHdrAttr.Font.Style = []
    GroupHdrAttr.ParentFont = False
    GroupHdrAttr.FrameColor = clBlack
    SelGroupHdrAttr.Font.Charset = DEFAULT_CHARSET
    SelGroupHdrAttr.Font.Color = clBlack
    SelGroupHdrAttr.Font.Height = -11
    SelGroupHdrAttr.Font.Name = 'Tahoma'
    SelGroupHdrAttr.Font.Style = []
    SelGroupHdrAttr.ParentFont = False
    SelGroupHdrAttr.FrameColor = clBlack
    LeftCol = 0
    TopRow = 1
    DateFormat = 'ddddd'
    TimeFormat = 't'
    TabOrder = 2
    DesignSize = (
      357
      296)
  end
  object Button2: TButton
    Left = 112
    Top = 328
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 3
    OnClick = Button2Click
  end
  object JvTFWeeks1: TJvTFWeeks
    Left = 344
    Top = 314
    Width = 300
    Height = 300
    ScheduleManager = JvTFScheduleManager1
    Cells = <
      item
        Color = clBlack
        CellDate = 42016.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42017.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42018.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42019.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42020.000000000000000000
        CellPics = <>
        CanSelect = True
      end
      item
        Color = clBlack
        CellDate = 42021.000000000000000000
        CellPics = <>
        CanSelect = True
      end>
    GapSize = 4
    TitleAttr.TxtAttr.Font.Charset = DEFAULT_CHARSET
    TitleAttr.TxtAttr.Font.Color = clWindowText
    TitleAttr.TxtAttr.Font.Height = -21
    TitleAttr.TxtAttr.Font.Name = 'Tahoma'
    TitleAttr.TxtAttr.Font.Style = [fsBold]
    TitleAttr.Title = 'Week of jan 12, 2015'
    CellAttr.Font.Charset = DEFAULT_CHARSET
    CellAttr.Font.Color = clWindowText
    CellAttr.Font.Height = -11
    CellAttr.Font.Name = 'Tahoma'
    CellAttr.Font.Style = []
    CellAttr.TitleAttr.Color = clWhite
    CellAttr.TitleAttr.FrameAttr.Color = clGray
    CellAttr.TitleAttr.DayTxtAttr.Font.Charset = DEFAULT_CHARSET
    CellAttr.TitleAttr.DayTxtAttr.Font.Color = clWindowText
    CellAttr.TitleAttr.DayTxtAttr.Font.Height = -11
    CellAttr.TitleAttr.DayTxtAttr.Font.Name = 'Tahoma'
    CellAttr.TitleAttr.DayTxtAttr.Font.Style = []
    CellAttr.DrawBottomLine = False
    SelCellAttr.Font.Charset = DEFAULT_CHARSET
    SelCellAttr.Font.Color = clWindowText
    SelCellAttr.Font.Height = -11
    SelCellAttr.Font.Name = 'Tahoma'
    SelCellAttr.Font.Style = []
    SelCellAttr.TitleAttr.Color = clNavy
    SelCellAttr.TitleAttr.DayTxtAttr.Font.Charset = DEFAULT_CHARSET
    SelCellAttr.TitleAttr.DayTxtAttr.Font.Color = clWhite
    SelCellAttr.TitleAttr.DayTxtAttr.Font.Height = -11
    SelCellAttr.TitleAttr.DayTxtAttr.Font.Name = 'Tahoma'
    SelCellAttr.TitleAttr.DayTxtAttr.Font.Style = []
    SelCellAttr.DrawBottomLine = False
    Viewer = JvTFGlanceTextViewer2
    DateFormat = 'ddddd'
    TimeFormat = 't'
    ParentColor = True
    TabOrder = 4
    DisplayDate = 42019.000000000000000000
    DisplayOrder = doLeftRight
    DWNames.DWN_Sunday = 'S'
    DWNames.DWN_Monday = 'M'
    DWNames.DWN_Tuesday = 'T'
    DWNames.DWN_Wednesday = 'W'
    DWNames.DWN_Thursday = 'T'
    DWNames.DWN_Friday = 'F'
    DWNames.DWN_Saturday = 'S'
    DWTitleAttr.Height = 20
    DWTitleAttr.TxtAttr.Font.Charset = DEFAULT_CHARSET
    DWTitleAttr.TxtAttr.Font.Color = clWindowText
    DWTitleAttr.TxtAttr.Font.Height = -11
    DWTitleAttr.TxtAttr.Font.Name = 'Tahoma'
    DWTitleAttr.TxtAttr.Font.Style = [fsBold]
  end
  object JvTFScheduleManager1: TJvTFScheduleManager
    AlwaysPost = True
    OnPostAppt = JvTFScheduleManager1PostAppt
    StateImageMap.AlarmEnabled = -1
    StateImageMap.AlarmDisabled = -1
    StateImageMap.Shared = -1
    StateImageMap.Recurring = -1
    StateImageMap.Modified = -1
    OnLoadBatch = JvTFScheduleManager1LoadBatch
    SchedLoadMode = slmBatch
    RefreshAutoReconcile = True
    Left = 64
    Top = 368
  end
  object JvTFGlanceTextViewer1: TJvTFGlanceTextViewer
    ShowStartEndTimeInHint = False
    ShowStartEnd = False
    OnDblClick = JvTFGlanceTextViewer1DblClick
    Left = 144
    Top = 416
  end
  object JvTFGlanceTextViewer2: TJvTFGlanceTextViewer
    ShowStartEndTimeInHint = False
    ShowStartEnd = False
    Left = 176
    Top = 512
  end
end
